% function to read the
% header of each spectra block in edi file
% latest date 14.10.2002

function[str,fid] = read_char(fid),
sflag = 0;
s = 1;
while sflag ==1,
   str(s) = fscanf(fid,'%c',[1 1]);
   if str(s) == '/',
      disp('Hai');
      str(s+1:s+3) = fscanf(fid,'%c',[3 1]);
      sflag = 1;
   end;
   
   s = s+1;
   end;

   